perm filename KLDCPU.PAL[KL,SYS]1 blob sn#214680 filedate 1976-05-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY
C00003 00003	ASSEMBLY PARAMETERS
C00006 ENDMK
CāŠ—;
;DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY

; IMPORTANT:   Parameter assignments in this file must agree with those in KLDCP

DECVER=7
MCNVER=0

SAILVR==5	;STANFORD VERSION NUMBER.  (DEFINING SAILVR MAKES STANFORD ASSEMBLY)


.TITLE	KLDCPU	DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY, VER 0.7



.LIST	MC,MD
;.DSABL	GBL
;.DSABL	REG
.ABS
;.ENABL	AMA

;JOHN R. KIRCHOFF
;DIGITAL EQUIPMENT CORPORATION
;MARLBORO, MASS. 01752
;ASSEMBLY PARAMETERS

;DTEASB=1	;ASSEMBLE DTE20
;KWASB=	1	;ASSEMBLE KW CLOCK
;DLASB=	1	;ASSEMBLE DL11
;DHASB=	1	;ASSEMBLE DH11
;TAASB=	1	;ASSEMBLE TA CASSETTE
RXASB=	1	;ASSEMBLE RX11/RX01 FLOPPY
TCASB=	1	;ASSEMBLE TC DECTAPE
RPASB=	1	;ASSEMBLE RP04 DISK PACK
LPASB=	1	;ASSEMBLE LP20 LINE PRINTER
EPTREL==1	;ASSEMBLE EXAMINES/DEPOSITS FOR COMMUNICATIONS RELATIVE TO EPT

$NB=	8.	;USE 8 BREAKPOINTS

;UTILITY CODE BEGINS AT LOCATION 3000

PRGSRT=	3000
COREND=	28.*1024.*2.

;SPECIAL KLDCP LINKAGE ADDRESSES

START=	100000		;CONSOLE START
$CNTLC=	100004		;CONTROL C
$CONSL=	100014		;RETURN TO CONSOLE

$TKS=	100020		;TTY KBD STATUS
$TKB=	100022		;TTY KBD BUFFER
$TPS=	100024		;TTY PRINTER STATUS
$TPB=	100026		;TTY PRINTER BUFFER

$LPS=	100030		;LP11 - LINE PRINTER STATUS
$LPB=	100032		;LP11 - LINE PRINTER BUFFER

$FSTKS=	100034		;FIELD SERVICE KLINIK INPUT STATUS
$FSTKB=	100036		;FIELD SERVICE KLINIK INPUT BUFFER
$FSTPS=	100040		;FIELD SERVICE KLINIK OUTPUT STATUS
$FSTPB=	100042		;FIELD SERVICE KLINIK OUTPUT BUFFER

$CMTKS=	100044		;COMM INPUT STATUS
$CMTKB=	100046		;COMM INPUT BUFFER
$CMTPS=	100050		;COMM OUTPUT STATUS
$CMTPB=	100052		;COMM OUTPUT BUFFER

FUQ::		;THIS IS HERE TO AVOID GETTING A "LOCAL TAG BEFORE LABEL" ERROR

.INSRT	PRM11
.INSRT	KLDCU1
.INSRT	SBST11
.END	$ILOAD